home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
UTILITY
/
TASEXAM6.ARJ
/
TEI.TAS
< prev
next >
Wrap
Text File
|
1991-11-28
|
3KB
|
67 lines
{ TEI.TAS, Version 1.0
*
Script to create graphs based on the "Trend Exhaustion Index",
as defined by the January, 1991 issue of TASC (Technical Analysis
of Stocks and Commidities). It is used to give signals for
exiting the market prior to major market declines, and is based
on the NYSE new highs and advances.
*
The ticker file coming into those program need only have two
ticker symbols: UVDV and HI-LO.
*
Note the statement "#INCLUDE SCANDATE.SUB". In order to run this
program, a file named SCANDATE.SUB must exist. The default file
just contains a comment ("Subroutine for possible #SCAN_DATE").
This default does NOT affect the running of the program. But, it
will allow you to run the program from a BATch file several times
using different #SCANDATE parameters. For example:
REM ********************************************************
REM * pgmname.BAT
REM * Run pgmname.TAS for different days
REM ********************************************************
copy scandate.sub scandate.bak
erase pgmname.lst
echo #SCAN_DATE 910923 >scandate.sub
tas pgmname tickerlist @variable=xxx
echo #SCAN_DATE 910930 >scandate.sub
tas pgmname tickerlist @variable=xxx
REM ********************************************************
REM * Reset the SCANDATE.SUB file so it won't do anything
REM ********************************************************
copy scandate.bak scandate.sub
erase scandate.bak
*
Created 11/28/91 by Randy Harmelink
Changed 11/28/91 by Martin Moore to use standard symbols for
NYSE Advancing and NYSE New Highs
}
#INCLUDE SCANDATE.SUB { Possible #SCAN_DATE parameter }
#MAX_QUOTES 600
#INDEX 'dj-30'
{**************************************************************}
{ Define arrays used in program }
{**************************************************************}
TEI : Array;
NewHighs : Array;
AdvIssues : Array;
{**************************************************************}
{ Save NYSE new highs and advancing issues }
{**************************************************************}
NewHighs = Load('NYNH','C');
AdvIssues = Load('NYAD','C');
{**************************************************************}
{ Display results when all tickers have been processed }
{ ------------------------------------------------------------ }
{ Sample of manual calculation as defined by TASC: }
{ for i = -Quote_Count + 2; i <= 0; i = i + 1; }
{ TEI[i] := 0.82 * TEI[i-1] + }
{ 0.18 * (NewHighs[i] / AdvIssues[i]); }
{**************************************************************}
if Last_Ticker then begin
TEI := mov(div(NewHighs,AdvIssues),10,'E');
opengraph(2);
graph(Index,'DJIA closing prices');
graph(TEI,'Trend Exhaustion Index');
CloseGraph();
end;